data <- read.csv("Nutrition/data/nutritionClean.csv")[,c(-1,-2)]
head(names(data),30)
## [1] "Shrt_Desc" "Water_.g." "Energ_Kcal"
## [4] "Protein_.g." "Lipid_Tot_.g." "Ash_.g."
## [7] "Carbohydrt_.g." "Fiber_TD_.g." "Sugar_Tot_.g."
## [10] "Calcium_.mg." "Iron_.mg." "Magnesium_.mg."
## [13] "Phosphorus_.mg." "Potassium_.mg." "Sodium_.mg."
## [16] "Zinc_.mg." "Copper_mg." "Manganese_.mg."
## [19] "Selenium_.Ã.µg." "Vit_C_.mg." "Thiamin_.mg."
## [22] "Riboflavin_.mg." "Niacin_.mg." "Panto_Acid_mg."
## [25] "Vit_B6_.mg." "Folate_Tot_.Ã.µg." "Folic_Acid_.Ã.µg."
## [28] "Food_Folate_.Ã.µg." "Folate_DFE_.Ã.µg." "Choline_Tot_..mg."